function ramax = ramax(cellra)
ramax = max(reshape(cellra,size(cellra,1),size(cellra,2),size(cellra,3)*size(cellra,4)),[],3);
